DayTrading Stocks - Sell Short - Stock Picks - Swing Trading - Make money in Downtrends - Make money in Bear Markets

DayTrading Stocks - Sell Short - Stock Picks - Swing Trading - Make money in Downtrends - Make money in Bear Markets                                                                                    Home  .  FAQ  .  Subscribe  .  Login
DayTrading Stocks - Sell Short - Stock Picks - Swing Trading - Make money in Downtrends - Make money in Bear Markets
 DayTrading Stocks - Sell Short - Stock Picks - Swing Trading - Make money in Downtrends - Make money in Bear Markets

  <% 'declare your variables Dim oConnection, oRecordset Dim sSQL 'Create an instance of the Connection Recordset objects Set oConnection = Server.CreateObject("ADODB.Connection") Set oRecordset = Server.CreateObject("ADODB.Recordset") 'Set an active Connection to the Connection object 'open the Connection to the database oConnection.Open sConnString 'Create a variable called sSQL which holds an SQL statement to query against the database sSQL = "SELECT * FROM tblJoinFrmConfig;" 'Query the database and return a oRecordset oRecordset.Open sSQL, oConnection %> <% '''If the form has not been filled in then display this code If Request.Form("Submit")="" Then %>

<% firstname_active=oRecordset("firstname_active") If firstname_active="Y" Then %> <% End If %> <% surname_active=oRecordset("surname_active") If surname_active="Y" Then %> <% End If %> <% address_active=oRecordset("address_active") If address_active="Y" Then %> <% End If %> <% city_active=oRecordset("city_active") If city_active="Y" Then %> <% End If %> <% statecounty_active=oRecordset("statecounty_active") If statecounty_active="Y" Then %> <% End If %> <% country_active=oRecordset("country_active") If country_active="Y" Then %> <% End If %> <% zippostcode_active=oRecordset("zippostcode_active") If zippostcode_active="Y" Then %> <% End If %> <% tel_active=oRecordset("tel_active") If tel_active="Y" Then %> <% End If %> <% email_active=oRecordset("email_active") If email_active="Y" Then %> <% End If %> <% website_active=oRecordset("website_active") If website_active="Y" Then %> <% End If %> <% username_active=oRecordset("username_active") If username_active="Y" Then %> <% End If %> <% custom1=oRecordset("custom1") If custom1<>"" AND oRecordset("custom1_active")="Y" Then%> <% End If %> <% custom2=oRecordset("custom2") If custom2<>"" AND oRecordset("custom2_active")="Y" Then%> <% End If %> <% custom3=oRecordset("custom3") If custom3<>"" AND oRecordset("custom3_active")="Y" Then%> <% End If %> <% custom4=oRecordset("custom4") If custom4<>"" AND oRecordset("custom4_active")="Y" Then%> <% End If %> <% tos=oRecordset("tos") If tos<>"" AND oRecordset("tos_active")="Y" Then%> <% End If %> <% toscb_active=oRecordset("toscb_active") If toscb_active="Y" Then%> <% End If %> <% ps_active=oRecordset("ps_active") If ps_active="Y" Then %> <% End If %>
<%= sFormHeaderText %> : <%= item_Name %>
First name
Last name
Address
City
State / County
Country
Zip / Postcode
Telephone
Email Address
Where did you hear about website
Please select a Username
<%= custom1 %>
<%= custom2 %>
<%= custom3 %>
<%= custom4 %>
Terms of service
Do you agree with the terms of service
Privacy statement
   
   
 
<% '''if the form has been submitted correctly then execute this code Else Dim oConn, oRs, sSQLCHECK, sSQLINSERT Dim sFirstname, sSurname, sAddress, sCity, sCounty, sCountry Dim sPostCode, sTel, sEmail, sHear_about_website Dim sUsername, iMembershipType Dim daysToRecharge 'receive variables posted sFirstname=Replace(Request.Form("Firstname"),"'","''") sSurname=Replace(Request.Form("Surname"),"'","''") sAddress=Replace(Request.Form("Address"),"'","''") sCity=Replace(Request.Form("City"),"'","''") sCounty=Replace(Request.Form("County"),"'","''") sCountry=Replace(Request.Form("Country"),"'","''") sPostCode=Replace(Request.Form("PostCode"),"'","''") sTel=Replace(Request.Form("Tel"),"'","''") sEmail=Replace(Request.Form("Email"),"'","''") sHear_about_website=Replace(Request.Form("hear_about_website"),"'","''") sUsername=Replace(Request.Form("Username"),"'","''") sCustom1=Replace(Request.Form("custom1"),"'","''") sCustom2=Replace(Request.Form("custom2"),"'","''") sCustom3=Replace(Request.Form("custom3"),"'","''") sCustom4=Replace(Request.Form("custom4"),"'","''") iMembershipType=Request.Form("mtid") 'check to make sure that the username hasn't already been taken sSQLCHECK= "SELECT Email FROM tblMembers WHERE Username='" & sUsername & "';" Set oRs=Server.CreateObject("ADODB.Recordset") oRs.Open sSQLCHECK,oConnection If NOT oRs.eof Then response.write "

Sorry that username has already been taken.
Please click the back button on your browser and select a new username.
" 'close the connection and recordset objects oRs.Close Set oRs=Nothing response.end 'stop the code processing any more. Else 'make a function that will generate a random password function makePassword(byVal maxLen) Dim sNewPassword Dim whatsNext, upper, lower, intCounter Randomize For intCounter = 1 To maxLen whatsNext = Int((1 - 0 + 1) * Rnd + 0) If whatsNext = 0 Then upper = 90 lower = 65 Else upper = 57 lower = 48 End If sNewPassword = sNewPassword & Chr(Int((upper - lower + 1) * Rnd + lower)) Next makePassword = sNewPassword End function 'call the function and return a password of 5 figures randompassword=makePassword(5) 'insert values into the database sSQLINSERT= "INSERT INTO tblMembers(FirstName,SurName,Address,City,County,Country,Postcode," & _ "Email,tel,hear_about_website,UserName,Custom1,Custom2,Custom3,Custom4,Password,MembershipType," & _ "Active,Date_joined)values('" & sFirstname & "', '" & sSurname & "', '" & sAddress & "'," & _ " '" & sCity & "', '" & sCounty & "', '" & sCountry & "', '" & sPostcode & "', '" & sEmail & "', " & _ "'" & sTel & "','" & sHear_about_website & "', '" & sUsername & "','" & sCustom1 & "','" & sCustom2 & "','" & sCustom3 & "','" & sCustom4 & "'," & _ "'" & "dtsp" & "','1','Y',#" & Now() & "#)" oConnection.execute(sSQLINSERT) End If If err.number<>0 then response.write "
Sorry we are having difficulties, please try again.
" Else %>

 

To complete your registration click on Pay Pal button to start your FREE subscription.

 

 

<% If trialMembership="Y" Then %> <% End If %> <% If src="1" Then %> <% End If %> <% If sra="1" Then %> <% End If %> <% If srt="0" OR srt="NA" Then ' Else %> <% End If %>

 

If you like to start the subscription by using your Credit Cards click on the  Credit Cards button below..

<% If mtid="1" Then %> <% End If %> <% If mtid="2" Then %> <% End If %> <% If mtid="3" Then %> <% End If %>

 

Net Billing, Inc. is an authorized retailer of Swing Trading Stock Picks.

A charge from "Net Billing - Swing Trading Stock Picks" will appear on your billing statement.


<% End If '--Close the oConnection and free up resources oRecordset.Close Set oRecordset=nothing oConnection.Close Set oConnection=nothing End If %>